home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRAPHICS / IMGLIB95 / UFULLSCR.PA_ / UFULLSCR.PA
Text File  |  1996-03-31  |  2KB  |  82 lines
  1. {
  2. Written by Jan Dekkers and Kevin Adams (c) 1995, 1996. If you are a non
  3. registered client, you may use or alter this demo only for evaluation
  4. purposes.
  5.  
  6. Copyright by SkyLine Tools. All rights reserved.
  7.  
  8. Part of Imagelib VCL/DLL Library.
  9. }
  10.  
  11. unit Ufullscr;
  12.  
  13. {Includes settings to compile in either 16 or 32 bit}
  14. {$I DEFILIB.INC}
  15.  
  16. interface
  17.  
  18. uses
  19.   SysUtils,
  20. {$IFDEF DEL32}
  21.   Windows,
  22. {$ELSE}
  23.   WinTypes,
  24.   WinProcs,
  25. {$ENDIF}
  26.   Messages,
  27.   Classes,
  28.   Graphics,
  29.   Controls,
  30.   Forms,
  31.   Dialogs,
  32.   StdCtrls,
  33.   Buttons,
  34.   ExtCtrls,
  35.   Tmultip;    {PMultiImage VCL component}
  36.  
  37. type
  38.   TFullSlide = class(TForm)
  39.     MultiImage1: TPMultiImage;
  40.     procedure ImageClick(Sender: TObject);
  41.     procedure MultiImage1KeyDown(Sender: TObject; var Key: Word;
  42.       Shift: TShiftState);
  43.     procedure FormShow(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  49.  
  50. var
  51.   FullSlide: TFullSlide;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57. {-------------------------------------------------------------------------}
  58. {---------------------------------------------------------------------}
  59.  
  60. procedure TFullSlide.ImageClick(Sender: TObject);
  61. begin
  62.   fullslide.close;
  63. end;
  64.  
  65. procedure TFullSlide.MultiImage1KeyDown(Sender: TObject; var Key: Word;
  66.   Shift: TShiftState);
  67. begin
  68.  ImageClick(Sender);
  69. end;
  70.  
  71. procedure TFullSlide.FormShow(Sender: TObject);
  72. begin
  73.   SetBounds(0,0,screen.width,screen.height);
  74.   MultiImage1.top:=0;
  75.   MultiImage1.left:=0;
  76.   MultiImage1.height:=screen.height;
  77.   MultiImage1.width:=screen.width;
  78. end;
  79.  
  80. end.
  81.  
  82.